home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / zs20a.zip / UNZIP.IN_ / UNZIP.INC
Text File  |  1994-11-21  |  4KB  |  93 lines
  1. const
  2. (* Language mode ( for the replace dialog box ) *)
  3.   LANGUAGE_FRENCH         = 0;    { French mode                        }
  4.   LANGUAGE_ENGLISH        = 1;    { US Mode ( default )                }
  5.   LANGUAGE_GERMAN         = 2;  { German mode                        }
  6.   LANGUAGE_NONE           = 3;  { No language (used with ZN_REPLACE) }
  7.  
  8. (* Zip method constants *)
  9.   ZMETHOD_STORED          = 0;
  10.   ZMETHOD_SHRUNK          = 1;
  11.   ZMETHOD_REDUCE1         = 2;
  12.   ZMETHOD_REDUCE2            = 3;
  13.   ZMETHOD_REDUCE3         = 4;
  14.   ZMETHOD_REDUCE4         = 5;
  15.   ZMETHOD_IMPLODE         = 6;
  16.   ZMETHOD_TOKEN           = 7;
  17.   ZMETHOD_DEFLATE         = 8;
  18.   ZMETHOD_UNKNOWN         = 9;
  19.   ZMETHOD_ERROR           = 10;
  20.  
  21. (* Extraction function result constants *)
  22.   ZEXTRACT_OK                    = 0;
  23.   ZEXTRACT_INTERNALERROR  = 1;
  24.   ZEXTRACT_FILENOTFOUND     = 2;
  25.   ZEXTRACT_CORRUPTED        = 3;
  26.   ZEXTRACT_EMPTY                = 4;
  27.   ZEXTRACT_ERRORINZIPFILE    = 5;
  28.   ZEXTRACT_NOMEM                = 6;
  29.   ZEXTRACT_DISKFULL            = 8;
  30.   ZEXTRACT_WARNING            = 10;
  31.  
  32.  
  33. (* Helper constants *)
  34.   OVERWRITE_FALSE         = 0;
  35.   OVERWRITE_TRUE          = 1;
  36.   OVERWRITE_QUERY         = 2;
  37.   CREATEDIR_FALSE         = 0;
  38.   CREATEDIR_TRUE          = 1;
  39.  
  40. (* Notification messages for UNZIP and VIEW *)
  41.   ZN_OPENFILE             = WM_USER + 38;        { Open a file, WP = TRUE if Ok, LP = filename             }
  42.   ZN_EXPANDING            = WM_USER + 39;        { Unzipping a file, WP = file current rate, LP = filename }
  43.   ZN_CLOSEFILE            = WM_USER + 40;        { Close a file, WP = TRUE if Ok, LP = filename            }
  44.   ZN_REPLACE              = WM_USER + 53;   { The replace dialog box is opened                        }
  45.  
  46. (* New for version 2.0 *)
  47.  
  48. (* GetZList sort methods *)
  49.   ZSORT_BYFULLNAME        = 0;
  50.   ZSORT_BYNAME            = 1;
  51.   ZSORT_BYDIR             = 2;
  52.   ZSORT_BYDATE            = 3;
  53.   ZSORT_BYSIZE            = 4;
  54.   ZSORT_BYRATE            = 5;
  55.   ZSORT_NONE              = 6;
  56.  
  57. (* ZipJoin return values *)
  58.   JOIN_OK                 = 0;
  59.   JOIN_NOFILE             = 1;
  60.   JOIN_NOMEM              = 2;
  61.   JOIN_IOERROR            = 3;
  62.   JOIN_ACCESSDENIED       = 4;
  63.   JOIN_USERABORT          = 5;
  64.   JOIN_NOTASPLITFILE      = 7;
  65.   JOIN_ZIPEXIST           = 8; { nothing performed }
  66.  
  67. (* Notification message sent as soon as the REPLACE PASSWORD is displayed *)
  68.   ZN_NEWPASSWORD          = WM_USER + 65;   { WPARAM value isn' t used, the LPARAM includes the file name, }
  69.                                             { a tab character and the current password.                    }
  70. (* Notification message sent from ZipJoin *)
  71.   ZN_JOINING              = WM_USER + 41;   { Splitting in progress, wParam = total size in KB., lParam = piece name      }
  72.   ZN_JOINED               = WM_USER + 42;   { A zip part is done, wParam = part number,  lParam = piece size ( in bytes ) }
  73.   ZN_JOINDONESIZE         = WM_USER + 43;   { At the end of the process, lParam is the total length in bytes              }
  74.   ZN_JOINDONENAME         = WM_USER + 44;   { At the end of the process, lParam is the new ZIP file name.                 }
  75.  
  76. (* Record type for GetZipItem function *)
  77. type
  78.   pZipItem = ^tZipItem;
  79.   tZipItem = record
  80.     Name:         array [0..49]  of char;    { Filename without path.  Empty if directory }
  81.     Dir:          array [0..259] of char;    { Directory                                  }
  82.     IsDir,
  83.     IsEncrypted:  Boolean;
  84.     Method,                                  { A ZMETHOD_* constant                       }
  85.     Day,                                     { 1 - 31                                     }
  86.     Month,                                   { 1 - 12                                     }
  87.     Year,                                    { 0 - 99                                     }
  88.     Hour,                                    { 0 - 23                                     }
  89.     Min:          Integer;                   { 0 - 59                                     }
  90.     OriginalSize: LongInt;
  91.     Rate:         Integer;                   { Compression rate                           }
  92.   end;
  93.